(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     16755,        330]
NotebookOptionsPosition[     16278,        313]
NotebookOutlinePosition[     16673,        329]
CellTagsIndexPosition[     16630,        326]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"RegionPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "-", 
      RowBox[{"1.92", "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "*", "y"}], "+", 
         RowBox[{"0.49", "*", "x", "*", 
          RowBox[{"(", 
           RowBox[{"1", "-", "x"}], ")"}]}]}], ")"}]}], "-", 
      RowBox[{"0.49", "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "*", "x"}], "-", "1"}], ")"}]}]}], ">", "0"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.5", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "5"}], ",", 
     RowBox[{"-", "0.49"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8659077066561413`*^9, 3.865907721800782*^9}, {
  3.865908085230609*^9, 3.865908090114626*^9}, {3.865908153618205*^9, 
  3.865908238757749*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"44ff968d-13b7-49ea-8082-f78e2c17367a"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxd2ntYjNkDB/BKpaTbiM2wtixJm5Bit6xThpVUQoQI+aFkc68dKoRpXRbR
JpeNWSGK5JLLpvNuUmRLiLBuc2uaputIhejXPo/veZ+nf3afz1Nmz/c75z2X
19qHrZy+xEBPT29F5z/++7d7bFO0Y7aMnOwhaOzo6MX1fDgnM08iZ1YMKXgd
GKpgvhHnZKNyVzInPdrvIzZXMYcP/RhrruJNNi3OkeZVMfd5fE/lnqxmrnNy
E5ZEVjMXbj4aECrSMB95YrhVJ6xhXuP881WJjvfkhMdaYYmW2e7pj3bZ0lrm
1mGngkTiOuayrRY7KgPrmU8+i74Z6djALB7+uqmjgzf6EbqdGdvQk+8HRj8w
+oHRD4x+YPQDox8Y/cDoB0Y/MPqB0Q+MfmD0A6MfGP3A6KdrH3vne+141VfA
+oDRB4w+YPQBow8YfcDoA0YfMPqA0QeMPmD0AaMPGH3A6ANGHzD6MEysfFzq
YM36gNEHjD5g9AGjDxh9wOgDRh8w+oDRB4w+YPQBow8YfcDoA0YfMPoQX4ga
eHOUFesDRh8w+oDRB4w+YPQBow8YfcDoA0YfMPqA0QeMPmD0AaMPGH3A6OPF
JbNXs7dYsD5g9AGjDxh9wOgDRh8w+oDRB4w+YPQBow8YfcDoA0YfMPqA0QeM
PoqMPWLGHOnJ+oDRB4w+YPQBow8YfcDoA0YfMPqA0QeMPmD0AaMPGH3A6ANG
HzD6uDAn3KrPlR6sDxh9wOgDRh8w+oDRB4w+YPQBow8YfcDoA0YfMPqA0QeM
PmD0AaOPw1kpZ5rLTFgfMPqA0QeMPmD0AaMPGH3A6ANGHzD6gNEHjD5g9AGj
Dxh9wOgDRh/bOgrHP6o2Zn3A6ANGHzD6gNEHjD5g9AGjDxh9wOgDRh8w+oDR
B4w+YPQBo4+u+aOmv/03x8CI5YeRH0Z+GPlh5IeRH0Z+GPlh5IeRH0Z+GPlh
5IeRH0Z+GPlnn7Rfv69/N5YfRn4Y+WHkh5EfRn4Y+WHkh5EfRn4Y+WHkh5Ef
Rn4Y+WHkH9821WLlaH2WH0Z+GPlh5IeRH0Z+GPlh5IeRH0Z+GPlh5IeRH0Z+
GPm75g1OaQ84cvwzRV4YeWHkhZEXRl4YeWHkhZEXRl4YeWHkhZEXRl4YeWHk
dRo7Z8vsig8sL4y8MPLCyAsjL4y8MPLCyAsjL4y8MPLCyAsjL4y8XfN9kl25
1NukleWDkQ9GPhj5YOSDkQ9GPhj5YOSDkQ9GPhj5YOTrOv7yREHVQ8+3bPww
xg9j/DDGD2P8MMYPY/wwxg9j/DDGD2P8Xcc3KeTVCLvX9Wx8MMYHY3wwxgdj
fDDGB2N8MMYHY3xdP7/+1MHfD/+kZp8P4/NhfD6Mz4fx+ezzTg9O0gnlpOJO
s3zpgc779Bf76nYNn3Xcmjm/37exE89ZMS/buS4pYp0l87SXfzr57DFn9hzx
4JZDhhnX1v7bbYlOTt47zttb8M6IWbFxp6PU0pArm97yXliiIFft1XNDRXrc
qYxQl2ypktjsTRSOqW+jsZ+LwkRiFalyU/o127+jQUHDD1YGVjE7nT14L9JR
TW4899qUM7OJ/vdOTE+vmvlCZnm4Y7aGCPU9F78UaKlE/4c/8iQ1zKHB0geB
oVrmG+fHn5Dm1ZMbfs3FwRsUdK9hZqV7cgMz+oORl72P+GJ2H/9idh/9YnYf
+2LcH9APzgdw1/0SfaG/rvtF1766Pp9d++o639EHex/Vpa+u8w19YL7BZ5PM
tpmrZMT1gDD3z1kCLkG99po0T04u3zzt7hFrxM3+8UWte7KCyFcsMcg60EFf
jeu9UyesIiGhGw8pXJppScTk9DxJFZmYc8a1wEdHd9eodMISNRlu+PTe8bBG
Wu2dWBjpqCWGQRHtfzlrqKHwtlJY0kCOHxu4aHSyjH0/C4/NT4mR8O8DYfQ7
eGvHPKMCU3Y+h1PySFploJy8+WpKtzgfU/b7lk+GtSj+7c5+H8b3UVp27e9N
Qw3Y9wVHCTIeRjoqyK+LDcNbs/XZfPfSOFWLb7Sz/RGeEG7VXU9PSa4ICtwi
ij+y+Yd86Ld2yNJ5wpfWHHw6L8dg/2Lei6Z9yjCtsWLuX+Uzdcsq3lnvHLVN
dZYs7/L6S7m/efZg35ejelzC0B2GbPwCj5/7mZww4DC+f+iBIzvPfaJPZ4a7
JVfyzx+M+RXmFTAkW1pNRpzvWfK5rZYGRCZ4i801zFa1A/ZVBtaw79PtnKmx
yr2WzT8Y869ntzUeYvM69nMYP0+pCx6WXFlLKt7fdhEvVNEE292TQkV1zPLZ
z6PMVfyfh/HnV4i4RY7Z/O/PjmreqBPWM6M/PP8wnn8Yzz/6xPOt6yVb6Zit
YvMdzy98nOY8DQzl5zueX7i9z4yz0jy+L/Z+8Isx3q7rFd7/Ynwxn8ssvysX
sPmN9RvzG8b8aCnsvzzNhV/fcZ9DvnHJVhrflcZsfuM8NOLABPuSSCU5tqSx
dJLsPVvfsd7jvAT3z//FM7lSSX69NmCZw8dW9vs4fxhrsmaGilRkjZm/nlHv
FrYfdN0fsP5dTo7Ll+j49QT7Q9f9AvPVIyU3RCTm5yfybz6y/ets+54cxoc8
6Bd//4B+DR6PueV5i19v8H4EfeF5w8/xvgA/D/KWT10x04StL133T+wPWE/x
fKL/rvsr9gt8H3h+8d/Hfg5jf8J4kB/fB9YrGN83vh/0g/0UzxuM5w3rN56v
F9KECNEZ/u9vsH7XFLc1jU8TcKeHaGSBDnyf1uv79tDz4fsbalT3KHIVPz8x
n5WTBz07+MmIO7xpwZzQ7/j7Z1lIk9a9Lz9fsR6vC6jw1hv2ga5LVfuIXyrZ
/MN8jQ9o+9vcp4Wdhzf8L7Fo+r4mdr7UvTrVdG5lHTtfpl8IqvL217LzXVlm
dMWgmCp2viusjmrXjVSx852x8Q0TXxMldYk9Nmp4hoz4NrYM+MemF7cn8YXp
5uVy8v2pwoebHLtz8T/mcpILKlLtVpd11bGZTl+b9TRwkZqMi/r3674zG6lj
5JMRNi9ryPngMDtLk2q6wWlVpHlFA4laUZ0b6yGj4yotI0Q1MrI5cIWD1NiS
i4yfVCxpk5GKg3W06l9z7oq9Z7GkQ0ZuPvi8c02gOTe9ZVdFZJ/O571yztWQ
i2bczV9K/cVfyUmgpemGacfNOO+fSY/NrnIi8Rz1yL7VlONuOwwquSsnZUfz
UgsvdeOODVLVuX+WE4sV3z14KjLgjP3d1jqWKsiyOUFzx91pp7m9y07n/aok
hYkbX1+Ka6MD5p8o00apyF+50demvm2m9wUh6XmxVST65oJDGf10tE9R/PRQ
KzX5EDh8yhhNI03Zd3C77mQ1IalnT+58WEtPDf51f/DbajJoguDpZPNaqug9
Un4lTUMcJ9xYnRBfQwMiasrK1bVkj0VWqGGZkgo0WWGOQ+uIg/7ERvN1Sjo2
stuAbGUdOeMZnnA2TtF5for6KbRzvxiXaPFhRKctbcqqhCfqSXycfrRtspw6
p/40TRTWQCw2Lp/x4KqM7lQONtO7IGPn7Z+cX1yXNsr49/+2z8JFpvzzhvUk
2jarPGmJGRfmsYckJ/Ln6SfCgx+Fr/jzIZ7XEnWbfM1e/vxRfc7g+5HD9bjR
A/I+COfy58cnyxofRO7jz49YT5Rpx9KmvWqnl6WlbcI1/Hkc60e2o8+zGpM2
WuBcmVq5kD9vxlq0WqmM+PMmzp/f7p2X7LVFR+1s+qjdn1Wx9XZ3/erO7VjN
1lucR+/UpydoT9bTgHVxo5Ln8ed3nE+nuyWWfr1BQ4PuBJ2R+vHnUZxPcyrL
W/KH8OfTDBvluMoWOTufermQxLQ2Gd2mfFRs3Lm+cG8sIo2Me3ElH/bbqnJl
pODChYsHBwq4zcHHbFWd603f0mC3/fsFnNR/ertwXef+bVdw7H6+MectVvi9
PyInrr5+0b+7GnHuOe+X3er8fqKeneqz5q0RZ7I+f6nIQ0E2dQ9IHajS40T9
D08Rz1KQGX82rzafqcelTbV8qI1XkG9PSEwzRnVQLrTlinSwkqx45n61Y+cH
Kp64/bK0RUks32Z+Yy1tody97Gr3JhUZHbWr5vSat/TSaBNqnF5FzgUPpWcK
m2jPZfeSgzPVZNWh10W3sxuoaG1H02G/aqI32evrp7frqP+LfXkS02qy6t7q
u6476unI01FbdHpakv/34e3n76jpr78fypDmaolc0bj1bUoVnWo4ee1vYVri
GhnmvthOze5HWWHJC3LXy9n6bWwcafDTZhkt8r/z7MqierKi9uSBEXI5DbFr
M/ed00DSfz6Uv/tvGc3IGWfuW9BAlsb0vZvrL6P1Hg8tSl7+dz5x9Rw/VU6n
vE57u8mggZQZxiZOGSSnLgteF0v+5M/rP9QuuSHttEbd+Cn4l17cCKE6M280
f17fZl0oC/SUk+vLvrneXWzKraDtc0O95cTm3o75qYNNOZ2JZlBJCH9ebyx3
2WoeJidmdwaonXZ052b/tfq2xIA/r2+fqLlqb6YgQfsKpd10+pyiW+lV+34K
klykyuhI0uf84uveC+8r2P7nt6ncRlWpICEpooGTY9upXZ+T74VtCuIzZsP4
shMf2f7o2/zUvOVBMzufcBm7hqb/1cjOH/Na2+79EVLD7qsTfXXTZp6uZuf/
vH96fO9lJmP7pdWfrS3LJsro3VZNseRo5355ZN+AzzW9uN/6fUrSHZeRrY4j
A+NSenE0qsErmcrY/b4oMO2T8FrnfeHbstZiSwE3ecGQx5H5MrIhn+TvyrHm
qpdPjRAVyci2XoLG517W3JTUwiQdJyO/a29GTdptzTWPnDUq+4GMvR+wchE8
jiyREfmgIYesTKy5ld0be2wuk5HsLdesj5ZbccOWjIwQVcrIYuv7X79baMX1
ESQWSypkZM9905hvt1pxeh+IrarzvIT3C23pa4slrzvvJ1dCHMI/WHKv3qwu
lryRkbMBx1vzFJbcD8P6BYi1MjLXzkq8tNaCa3tzvSKyXcbOL3MfJ3klN8tI
nMHw3Y+cLLg9qW2u2cZy0q9/84fqOz25Px78EO34FX++PbDg3HV7s871s7lq
xm8xPbmPHifCbw2Rk/P7exUOT+3B5S5+tN5xmpw03w8/OnCWCfdP3Ju5oZ32
+ay/cWyQCWebdv+jMJ9/v3Hn5V0/8Vk58W+MudjvoiFn4SwiNhflJGPt+ez5
qw25kc4v9+oqOvdvp/klogXdONyXJN3CFzyZXktHxfc/EHysmux8sC7llaKW
+ha1Z0k9NOTs5yWlmYu01NDh4xv3gBpi9ZVyboeNhuofKhppM7OG+Ni6Hd1m
zN+fAlIHzDEtV9E/Ur+/pVVpSXT20tTLU6poL4OagkhBLYlPX35IalxF5XmL
dldG1ZKBz217GcSqKJlHaw4vqyWDtkiNx0hU7H51Nsx/t8lhJQ3VjT6Ud6+W
7F5WH5zxTkn7x4VblyytI+WZuhvv7ZTsPoX9cd3czSvNE+vINl3BjOstChrf
f6xDyRH+/1/abhATIL7K36dcjpo0ut/h71OLeryr0D7n71MXC575iaX8fSr4
0j5r1XkVCeh3pPDSMP4+NVOjijp14C2ddUov6JV7FVmZPcnJuUBHLRy+WSSK
4O8Dh198o683X010l6NP5Mzj71ux8xo/3/jYQAe4zwkVfVSTpLog76WX62kq
0RVp72qI8cCe5tH2NVS1bkd7xzsN0Y0fF3fotoYmTHXOlHrz9zFnS/FZ+9M1
5Gn9BE3p8mp2X2vuN4yrlKnp2JhVP4pDtMQvNfNhq7Oa/vVsvVo4oZ5Mp0MU
67orqDIp5rtkdR27z+F+N43q7vv/oKCuQ2IibnXuVy5571J6Jwu4aKsfvZIH
ycnL4FUuZSU9uOBz3f3FnfvTKruU2sjWzvvnpfOHK2cqiVfzGy+/+Pf07puL
dr75SvKvQ8MI2x2tNP1ozq41I1Wk3/10gWvhO1o+w+r75NtVZHaB6W2z+Cb6
aNP8GxIfDXES7P99sbeWlnX4Jpgr5GT37IX3M98bcFdOTXxdnq4g6qznC6Pa
PtGCSUlTxCEKYjHA+ey7sXrc/wGpZFav
    "], {{
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[0.3], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNmQn8llMWx9/7lJKStYUUiUKUaVNRKpRSlpClpKxjFyNbZKssITTRkDVr
WYYwjWUsWceMfRti7NswMtYR5nznfN/P3+fT6T733rP8zrnnuc8577/jfkeN
PrKq1Wo9G9Vq8a+2a6nVmK8Z1CaocdAKQWsFNQlqGrRe0MpBLYNa11IOvo6u
rRLUqpZ62FtbuRWDOgQ1D2oR1M61ZkHruobettrEXvuglZRZX92rBm2qXnRs
ELRa0OpBncWO/Q1LPm8YNCKob1C/oK76g3wn9SG/kf7g92bqXidoEzEhs7H7
zLtop7V8zcTazTnYuzvid09jhB+9HLHfuSTGPkE9jC98vzEuzHvLi69biQk/
+osbXFs6bqKvncW4hTFgPkA54re1foK3S0n7w4KGBG2u/W3F1NO1DmIarG+s
DVIH822UQ2Y75fB1e/0Dyw6eA9iHuwbegeIC01DlesvbRT9HKoevxwRNCJoY
tJO+oWNnR/wbLT7w7mjs4NtLX8G1i7zwbVRyfc+gMfqPH3s4gms3Y4Svu6qb
+e6uIbO3uvHvAHHA+1v1om8fY4FP+waNEuO4WuYre2PVMUJfd9TX/fQT7Aeq
G1wHOYJlf/dH/ypGyBzsPjg2LunrIUH/Dfo06LOgw/UB+0c4gusocY8POsw4
wjdZP8FypLzwHScO9o4VB9h/58jeJP3Hv6PVzfx49eHTCY5gP10c8F4W+GcE
bRI0JeaHimt6yeeTg24oiZP5iergHE6RF19PdcTXM9Q9yTMh18ibM10j76bK
i6+nOR4l9pHKnSUvfk/XZ+Jxrv6A5Xwxgn22trFzjv7D93vX0He2sWbvAuXw
42JxEJsLXcOnS1xD7+4lbc0MukgfkJmj7mlB1yg/i9iKe0bQH7QNrrmuMf9L
0G1BtwddLSbkL1Uf8nuWtDkv6Fp1Y/8q/UfmSnExv1w758p7qlivUw5f5zvi
3036gM2bHcG+QKxgv9E4wneDsWZ+i7zw/VEfrtGfK8V4hyN7XUv6cWvQQnWD
907l8G+RWMF4vzjgvVfbYFksbvBerx9gusc5fHerg/mflEPmz8qBfdOSWB7w
TMgv8uPqkufyYNBd4gLTfcot8HzITfLyIX3G14+DXgt6Pegx/QHLE+LDj2fV
zfkv0QZ8z7mGvkeNC3tPKocfz4iD2DzlGvHYu6TOvwc9rk3s/VWfkXle3Q8H
vRH0tPsvBj2izZfFBPaXXFuizB2e8z+0jfwL7iH/qrbx9U11P2MsnlTmNfeZ
v6Kdx9W1WKyblfRjKXEvGa+3gt7VHnjfcwTjB+JG3zv6Cd8/jSnz9+WF7zP9
B+Mn4sOnTx3Z+0h/wPuhupnvUxLL50H/DnpbO98pw/l/JVYwfq3tD+R9VkzL
xArfl+pg/h/lkPlGOex/r+5PjDXnQH784BrYby5p44ugb5UD04exflgUlINj
nBt0QVC3oJ/kxY9aSUxgr0riAPuQeO4etDyefxErfJsr3yzGn9XBXqOScmBv
WhI3GBuXXAPXiiXX+GaWkjax16RkHJG5WL0rUYeW1IVci5I4wNuypDx4Vy65
xpy6mPqTGnWNknqRb65O5FctiRVc2wb9pqSt1YNWUGY195mvop1Gzr/1zHuo
txXfTPG1DlpbGey0c0Rfe22Aay19gK+tPjBfR174JinfMai3MusGHaWN9YKG
BvUMahPUQd3E7Dh1rR+00L0NSvYH1ODU4rfFvG/QFiV7Dmpy6v7fiwedI4L6
BHUKOjPohKDhQbuV7HnWqGWv0lp5eo+1tEFdv47n0dQzYa+T2IhHY7EgPyzm
vYwH/UB75amFqSGpD+lz1qtlLU3P1NE5vQh1Pr1BC/c7aI+6ndp+Ffc7io+1
jbVNjdxFLBs7JxbU/vQA9DkbaKOVvJ31aVNtwEdN3qfW0Ff0rzX0M93ERZ2/
ub6xVu+ZNlMX/vSQr97z9NReX21gv59zMPWWr6O8PfShv3z4upWYzi/57i/X
JjX8QLEMcg4+avPBYmJ/gPaoqYfr02BltnBte3EM9cz6uDZMTJxhvdfZRhvg
20G94B3pnH3q7d3ETg0/qtbQq9R7l53c6+q87ucodeHPLsqAdbRzsIzRBn1y
B8+q3reM0b9dlRkill31h9p4T/3b2zkxGOsc29S1+4hlX+fgnVjLun0H98dp
j/r6YP2ZoMzurh2kbWr7A2oNfcuB+kNPUO9v9tPGaHnZo54/RMz1XoI6hhqZ
mm52raFvOVxc1OZH6g9r9d6F8VD9OVo+8FK3T9LecdrA/mTnE7V5jL5NUh4f
jpev3rccr98nOscedfvJ2j/Feb0POUXsU53Xe4yp4jvdOfbOcD5J/88Q01nO
wTjNOT5Md07PRI90kv7McA+s1N7U9mNK9gzniZXafKb4qPEv0J9zlZni2vni
niXfZPXNEDd1O3X8OH07Qh8ucW+q+7P0Z7Z7I5QZqz9zPG9wU8Nfqh1q8rli
utw5uKnn54ljrjLopb6mzt6rZK9yRa2hx7hOHNTP14jrOuf4enWtoY+5Shvg
vUG94LvRObzUPHfUGnqVm8RCPV7vRW5xb5p8c6Sb1IU/C5XBH+r8W8V3pzYu
dH61WO9yD3y3K1Pvberzee7j3yJl8IEa/G5tU6vfK5bFzsH6Z+dgv885+O53
Tj/ygDixRY/woLYfcg6Wh53jwyPOwf2o8xu0f4/4lrgHPmrwx9ynNn9CfE85
BxP1/NPKP6HMYteeEusz8i1S3xKxUvdS08/X3iJxP+fe2JI9zN/04Xn38OEF
5/jwonNwv+QcLNTpr4qDGv51Zd6pZW39uPuvKP+ue4+59rJ+vKE8mKil39Kf
N917Tn1vG5fXtU2fslQf6/0JNqjJP1cPNqjn3xfL/2tz7X/oXs26izpyfMl+
41/6+r56sUnN/7E4qL2/EB+9Tb2P+VS+1+TF3qjQN6hkj4UfXypPLJY5Bwe1
+tfi+tY5OqjNvxML+/V+hfErbXynDLqotX8WH/3Ccu397ByM9AH1PuYHbSwz
Fr+om9qb2p6+gJ7jJ22sYI2OTFPr9nfFskzcjUtDX9LIOh6MTazlsUlvgTy4
qOfpBU4OOiBoS3FwJuyhGyzg27Fkj0Q/RF9FXfWj+y09y5l8B0r2XE2sz6nt
dy7Ze9BDrGY93E5Mq5eGHqC9e41do5eg12glHvoHegF6A+r21uZPvfdYW9/W
1HZLeds676CNiUH9Sv6mvkvJWpyegx5kPfXQd6yrfKXtlsrxNwPq3yNL9iS9
xE2tTw/SX93Ug9NiPEuZhfKAgZ6lo7hXFiM9yP7Kd/E8GKm/zo3xnJK/LQ10
5J7cuuTvO9ybA0r+Vkvds1XJ36mpfw5WBr5tPENy66KgWSX7XvKMdfKW/pn3
pv6e88x9NTvGS0r2kNt5npzNiUE7GJu1jGVbfe1jTA7Un43c66W/lwbNKdnX
ba8scb+1ZK/WyVj2M+aNPG/O46Sg/YxXc/GQzxOCRpfs97q4z1lsJAbiSZ7y
GwG5OiVo5K9iNNDY4vcgfec35AHGtpfnDv7fljwD4o/9bcWwk7EmzqcFTXXv
1KBTSr5Lh5SM9VJjP8T4nxHj6SXzsq++EAty8mjjw3yE8Rko/q7Ge7gx762O
ttoZ5blydjsbr8uD/lCyvz3LkV6Qs9hFHfixo3kDP/1w/KvNi/+uKFn/Xek4
03XqQurGq9yjZjrHcZ7r1FLUjdfGeE1p+C4yknfjSn4v/ybPWON8fYzzS34z
znPk27NvyW8J35E9xHCe/OONM+d/gHkx1vND53jPA57DSt47rdVxkL60cL25
I3ytzC/ysLNrh7tOzvJe8O7X7xTejyPka+15ss69w7vLe8s7y70wSTnGY+Rh
PNZn7hzukXaOk0veKb+Tj2fe/SnmyGT56u8j9z7x4D48UbzcPyfpE/zHq+cE
58iSp+Rwd/PiVNfIBfoF+gDyi7wn58kjcnqYRG73EuMk9cPHO8LdUs9Ffm/Z
0Gdy8uySPQlnMVxM4LnJdd5NeKcpy/qNYkInec5vP/Cii78H8c6Ql+RkPZ/I
n7k+f+5dMdP1BTHeUvL7N8uRd/bCkt/FH+W5QFlG9rr9Sgae7j4jy3iR62Dh
rr/C2oE64CdH7t5mjrN95tvBt7CFI3dpa+MI30quscd91dN5G/cvloeYXGYM
6+/qFX5TLjNWyF2qfvyaq4/8lsBvKPxGQoy5I+Jfbf0I9qgqn6nfqBGpD4kf
z9RKK8b+P0reWx3i+WUxto/nF/RjhmfMOTaL9TdK3n/rxPNz5uFfWavyXeVe
4X7BD+4V+gpqc/JznvnDXcWcXJ3uM+tj5Nldee4u7jT6EfTwXbhS/ee5hg3u
kI9jfNazfjvoaeN2szlDrEYExldLvqNbxfOWVb6jbwX1qjLeS/G7yrtg2xgf
KHnnN4/nr0ve+8TmX8Znm1jfrsq7ZKUY/1MafrfkLMh9viP8BrqBWBb8Kj8X
mJt8cxfKU7/T8fF8ZTivhfLx3ekgf3vXbvNcbnOOnneCBlT5jdzbWHEW3L3X
urZb7H9a8juzOOiXku/CtzF+V/IO3TN4Pi/57bovqFGVdyx9F/0GfQNxalJl
rB4MGlrlPTk+xmUlv2l3BH1T8n7oHetPeUa3Bz3k+uGx/n7Jb/+LQVtXeae/
FjSyyjvxFWJc5V3cI8YnSt7freJ5zSpzcNUYV6nyHO4N+rnkHcLfKD4o+U2+
K+jhku8a3zS+VUv9HvHMncRvUPyexXeB+4znQ33mveCdpY+jN/u7vDe6Pt1n
+BuH3S+MIbbgf8t7b77Pi2L8Xjw9q8xF8rBPlTk6wDPk7Mj5H2L8b8n6Y1iV
uUgeHlrl2W+tnfn61TTWv/IseHc/Kfn+vlcy7sS8a4ybVPkteiRodJXfmyVB
46r8fjwe1K3Kmu558rXKmovc37fK/H9XHGBoF+PaVdYIzwT1r7LWaxtjmypr
ja/MFbA96blyppxnP8/0G3OFPBkca2Or7AO+JJerrAs3jXGzKuuMvaq817jT
OsbYosp67gtzmrP4zHeA/OfOIC/JyZWrvB+5G3nvW1b57k+McUKVf6PoQgwq
648YN6zye/5j0N0la6dBsfZSybqD+/XfJfFwV31U8r4iN+8xP4dU6Rt+rRHj
6lXWU+RyJ/OZ92O57wjv659KvrN9Y//OkvfG9+Y3ubR5rHevsu54zFgQh0eD
xlT57S9VniXn+D+dnFT9
          "]], PolygonBox[CompressedData["
1:eJwtlNlvTlEUxb9zFDHGEDWnpqJarUZjrrlolVJTSimqhqAEMdYciSARSRMv
/gjEWI15DPVCzAkhZoIXYkr8lr0fftlr3e+7956z97qn68JVxZUxkUiUQRJM
wWTAopBIbIE56K/UcVAJffFp0CvYf/7CKxgJk+AYlPP7XupmnneD2h8/jJoG
p6Ajvoz6id9vUQfgc6l94Di0xs+i7uf3wehB0XQJ14aj71FXwHIYGO2detdi
ahl+AexG50NbdDLMQZfCEK0FlqAzoDe6B/REL4QX2hd+HzUdvsAy/GHtQ2uG
pfhqaja8hQr8AWomvIcl+EPULOiAbg/zgu15Nrok2rPU0//v1pqDreExTMSv
p26EhzABv4a6Dv7Ab6hLWM/PwGJ+P6jrXGuJvh2sFzOhBgLXiqiNoEizi7bX
zXAJ2kTr7RHub45uBgPwBfBMfcHvoaZCrWaNX0lNDpaFdCgPlolW0dagd2uG
meh+UKFew0loF20W2sMHagI/mToGXnumlKVRnqXnno293ptH1A3BepSPP0/t
Amt9rUeVoYStWbM57Vk74LM94XvVjLPx131tw3zWtb43zTwHf9Ozm+uzPeu9
PuS9f+ezP+jZqPFeV/vsHvjaNMP50Was2SqjysZdvTdYRpTVOj0nWGZH4M9p
Rp75ofipUBUsw4XoC9Su3pNx+PGw2nsyDX2ZuhW2aYbqNWwKlrk+0TKhLGiG
xehO0bKre7KinQk6CzTDi9ACP917XB89F3bhp0LUtws70FOgO7obaMy6pym6
EQzUu7RG9DXX8+GzP0P35sFTaBIti7onDz0WUoLtUXv5rlwE29P9YGeEzgZl
9Fewb1rfciH88Eyn+j3q5U//rcqzqJ6pV8rkE2gc7SzRN/Et2J611wnBZvfG
s6oZanYvNTefoXpxhbo9WE9m4D961vVN1sMnRdurZpyLvhPsbNIzUvCjo529
OdAA3TDau9UD9f4qdWewGZRGuyfHr81Ed452VmkNykpBtLNEmfkH/LScYw==

          "]]}]}, {}, {}, {}, {}}, 
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJwl0+VSlAEUgOFPukvsAl27A1tRUOzCwBaxMEZ/ewtegt6CM3Zji4Jit2Ir
Bna3Pp/+eOY95+zszmzllq0rXtsgCII6NhrCeVJUELSlHelkcMQDW/jEVsrc
avULn5lsb08HInSiI1PoQlc6051uTKUnvejBSa/RW+9oXz2lfbRK++ld7a/V
mqen9R5LzNt0gJ7RTM2iIdvtA3UQ2TTiqNsOvrKTpW739TvfmGYfwlAGU+M2
TB/oKn2oZ2lsbkJTdtl/8JPHrHF7pL94wmp7nZ6jmbk5Ldht/80eltmf6nme
sdy+V/+wjxX253qBluZijpmna8AL8wyt15l6Mfwudb+W60u9RCvzLI6bSzSK
V+bZ+lpjNJoD5ny9rMP1io7QCl2pb/Qqrc1zmMtb+zwdSQFtmM8J9wUayzvz
Qn2v8RrHQfMoHU0hYyjikPs4vaZj9bqO18M6UW/oBL2ppbqYRXywJ+ktTdBU
0vhoT9bbmqgp5FJpz9HS8PdCJHxfZIfPD38bPuJ6aqmhgs1sYgPrKaeEIvKI
kEUmGaSTRiopJJNEIgnEE0csMUT//1r//Sf/ArlDaZg=
       "]]}}], {}},
  AspectRatio->1,
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0.48958333333333465`, -0.3960416666666678},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None, "TransparentPolygonMesh" -> True, "AxesInFront" -> True},
  PlotRange->{{0.5, 1}, {-5, -0.49}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.865907722264492*^9, {3.865908086685931*^9, 3.8659080904370003`*^9}, {
   3.865908162329011*^9, 3.865908239281893*^9}},
 CellLabel->"Out[9]=",ExpressionUUID->"45015e86-07cf-4844-bfa6-39b3fb0c8f70"]
}, Open  ]]
},
WindowSize->{617, 685},
WindowMargins->{{4, Automatic}, {70, Automatic}},
FrontEndVersion->"13.0 for Mac OS X ARM (64-bit) (December 2, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"9b890a9a-8956-44d7-a6f7-e684dfe78953"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 934, 27, 52, "Input",ExpressionUUID->"44ff968d-13b7-49ea-8082-f78e2c17367a"],
Cell[1517, 51, 14745, 259, 378, "Output",ExpressionUUID->"45015e86-07cf-4844-bfa6-39b3fb0c8f70"]
}, Open  ]]
}
]
*)

